home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / comm / tcp / hserv.lha / hserv / cgi-bin / post.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-24  |  422b  |  23 lines
  1. /* */
  2.  
  3. parse arg a +11 word
  4.  
  5. select
  6.     when a~="searchText=" then res="bad request"
  7.     when word=="" then res="You must give me something to search for!"
  8.     when word=="alfie" then res=word": alfier@iol.it"
  9.     otherwise res=word "not found"
  10. end
  11.  
  12. say "Content-Type: text/html";say
  13.  
  14. say "<HTML>"
  15. say "<HEAD>"
  16. say "<TITLE>post1</TITLE>"
  17. say "</HEAD>"
  18. say "<BODY>"
  19. say "<STRONG><H1>" res "</H1></STRONG>"
  20. say "</BODY>"
  21. say "</HTML>"
  22.  
  23.